home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / lern / lern338.d64 / py006 multimic (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  6KB  |  255 lines
  1. 1 PRINT"[147]
  2. 2 [153]"DO YOU WISH TO DO :
  3. 3 PRINT"1. MULTIMETER
  4. 4 [153]"2. MICROMETER SCREW GAUGE
  5. 5 GETA:IFA>2ORA<1THEN5
  6. 6 ONAGOTO10,3500
  7. 10 PRINT"[147]             MULTIMETER
  8. 20 [153]"STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$
  9. 30 PRINT:PRINT:PRINT
  10. 40 GOSUB2000
  11. 50 PRINT"   THIS IS THE SCALE OF A MULTIMETER
  12. 55 [153]" WHICH CAN BE USED ON THE FOLLOWING
  13. 60 PRINT" RANGES :-
  14. 65 [153][163]10)"(1) 1000 VOLT
  15. 70 PRINTTAB(10)"(2)  250 VOLT
  16. 75 [153][163]10)"(3)   50 VOLT
  17. 80 PRINTTAB(10)"(4)   10 VOLT
  18. 85 [153][163]10)"(5)  500 MILLIAMP
  19. 90 PRINTTAB(10)"(6)   25 MILLIAMP
  20. 95 [153]"    PRESS ANY KEY TO CONTINUE
  21. 100 GETA$: IFA$=""THEN100
  22. 110 PRINT"[147]":GOSUB2000
  23. 115 PRINT"TEN RANDOM READINGS WILL APPEAR FOR
  24. 117 [153]"A MAXIMUM OF 10 SECONDS.
  25. 119 PRINT"WRITE DOWN EACH READING AS QUICKLY AS
  26. 121 [153]"POSSIBLE. MARKS WILL BE AWARDED FOR
  27. 123 PRINT"SPEED AND ACCURACY.
  28. 125 [153]"YOU WILL BE ASKED TO TYPE IN YOUR
  29. 127 PRINT"RESULTS AT THE END OF THE TEST FOR
  30. 129 [153]"SCORING.
  31. 130 GOSUB5000
  32. 131 PRINT"    PRESS ANY KEY TO CONTINUE
  33. 138 [129]I[178]1[164]10
  34. 300 S[178][181](6[172][187](1)[170]1)
  35. 310 RI[178][181](50[172][187](1)[170]1)
  36. 311 [139]RI[179][178]24[167]P(I)[178]0:[137]315
  37. 313 R[178](RI[171]24.5):P(I)[178]10
  38. 314 [137]319
  39. 315 R[178]RI
  40. 319 B(I)[178]R
  41. 320 [139]S[178]1[167]S$(I)[178]"VOLT":H(I)[178]1000:Q(I)[178]40[172]R:[137]500
  42. 330 [139]S[178]2[167]S$(I)[178]"VOLT":H(I)[178]250:Q(I)[178]R[172]10:[137]500
  43. 340 [139]S[178]3[167]S$(I)[178]"VOLT":H(I)[178]50:Q(I)[178]R[172]2:[137]500
  44. 350 [139]S[178]4[167]S$(I)[178]"VOLT":H(I)[178]10:Q(I)[178]R[173]2.5:[137]500
  45. 360 [139]S[178]5[167]S$(I)[178]"MA":H(I)[178]25:Q(I)[178]R:[137]500
  46. 370 [139]S[178]6[167]S$(I)[178]"MA":H(I)[178]500:Q(I)[178](R[172]20):[137]500
  47. 500 [153]"LOADPROBLEM ";I
  48. 505 [153]"METER SET ON ";H(I);" ";S$(I);" RANGE
  49. 510 PRINT"":GOSUB2000
  50. 520 GOSUB1500
  51. 521 PRINT"    PRESS Z WHEN READY
  52. 522 T3[178]TI
  53. 523 [161]A$:[139]A$[178]"Z"[167]525
  54. 524 [139]TI[171]T3[179]600[167][137]523
  55. 525 D(I)[178]TI[171]T3
  56. 540 [130]I
  57. 600 [137]2500
  58. 1500 [151]33332,66
  59. 1505 [129]J[178]1[164](R[170]5)
  60. 1510 T2[178]TI
  61. 1520 [139]TI[171]T2[179](J[173]2)[167]1520
  62. 1530 [151](33331[170]J),32
  63. 1535 [139]J[177]25[167]1560
  64. 1540 [151](33332[170]J),66
  65. 1550 [130]J
  66. 1555 [151](33331[170]J),32
  67. 1560 [129]K[178]9[164]1[169][171]1
  68. 1562 [139](R[170]K)[177]25[167]1590
  69. 1565 T2[178]TI
  70. 1567 [139]TI[171]T2[179](4[172](10[171]K))[167]1567
  71. 1570 [151](33328[170]R[170]K),32
  72. 1580 [151](33327[170]R[170]K),66
  73. 1590 [130]K
  74. 1600 [129]L[178]1[164]4
  75. 1610 T2[178]TI
  76. 1620 [139]TI[171]T2[179](L[172]10)[167]1620
  77. 1630 [151](33327[170]R[170]L),32
  78. 1640 [151](33328[170]R[170]L),66
  79. 1645 [139]P(I)[178]10[167][151](33328[170]R[170]L),103
  80. 1650 [130]L
  81. 1700 [142]
  82. 2000 [153]"    0   50  100  150  200  250
  83. 2005 PRINT"    0   10   20   30   40   50
  84. 2010 [153]"    0    2    4    6    8   10
  85. 2015 PRINT"    [194]    [194]    [194]    [194]    [194]    [194]
  86. 2020 [153]"    PEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEK
  87. 2025 RETURN
  88. 2500 PRINT"[147]MARKING
  89. 2510 [153]"STR$STR$STR$STR$STR$STR$STR$
  90. 2520 PRINT"   TYPE IN YOUR SOLUTION, INCLUDING
  91. 2530 [153]"THE UNIT ABBREVIATED AS 'MA' OR 'VOLT' AND PRESS 'RETURN'
  92. 2532 PRINT"     PRESS ANY KEY TO CONTINUE
  93. 2534 [161]A$:[139]A$[178]""[167]2534
  94. 2540 E[178]0:N[178]0
  95. 2550 [129]I[178]1[164]10
  96. 2560 [153]"LOAD   PROBLEM NO. ";I;".
  97. 2570 PRINT"YOUR ANSWER -";
  98. 2580 INPUTW$
  99. 2590 IFVAL(W$)=Q(I)ANDRIGHT$(W$,2)=RIGHT$(S$(I),2)THEN2700
  100. 2600 PRINT"[147]"
  101. 2620 PRINT"THE READING ON THE ";H(I);S$(I);" SCALE
  102. 2621 [153]"WAS ";Q(I);" ";S$(I)
  103. 2622 [153]:[153]:[153]:[153]
  104. 2624 [141]2000
  105. 2625 [139]P(I)[179]5[167][151](33372[170]B(I)),66:[137]2640
  106. 2630 [151](33372[170]B(I)),103
  107. 2640 [153]"     PRESS ANY KEY TO CONTINUE
  108. 2650 GETA$:IFA$=""THEN2650
  109. 2660 GOTO2740
  110. 2700 PRINT"THAT IS CORRECT."
  111. 2710 T4=TI
  112. 2720 IFTI-T4<120THEN2720
  113. 2730 E=E+D(I):N=N+1
  114. 2740 NEXTI
  115. 3000 PRINT"[147]YOU GOT ";N;" READINGS CORRECT OUT OF TEN.
  116. 3010 [153]"TAKING SPEED INTO CONSIDERATION THIS
  117. 3020 PRINT"MEANS YOUR RATING IS  ";INT(10-E/1200)*N;" %
  118. 3040 [153]"     PRESS ANY KEY TO CONTINUE
  119. 3050 GETA$:IFA$=""THEN3050
  120. 3060 PRINT"[147]DO YOU WISH -
  121. 3070 [153]"1.TO DO ANOTHER TEST ?
  122. 3080 PRINT"2.TO DO ANOTHER PROGRAMME ?
  123. 3090 [161]W:[139]W[177]2[176]W[179]1[167]3090
  124. 3100 [145]W[137]10,1
  125. 3500 [153]"LOAD":I[178]0:PM[178]101:[141]4000
  126. 3530 [151]33305,100:[151]33106,48:[151]33306,52:[151]32905,100:[151]33105,100
  127. 3540 [151]32906,53:[151]33307,53
  128. 3600 [153]"THIS REPRESENTS THE STEM AND THIMBLE
  129. 3602 PRINT"OF A PROPERLY ZEROED HALF MILLIMETRE    PITCH MICROMETER SCREW GAUGE.
  130. 3610 [141]5000
  131. 3620 [153]"LOAD":I[178]7:[141]4000
  132. 3630 [151](33305[170]I),100:[151](23106[170]I),48:[151](33306[170]I),52:[151](32905[170]I),100
  133. 3640 [151](32906[170]I),53:[151](33307[170]I),53:[151](33105[170]I),100
  134. 3654 [153]"THIS REPRESENTS THE MICROMETER WHEN
  135. 3656 PRINT"THE GAP BETWEEN THE ANVIL AND THE
  136. 3658 [153]"SPINDLE IS 3.50 MM.
  137. 3660 GOSUB5000
  138. 3670 GOSUB3700
  139. 3680 GOTO3880
  140. 3700 Z=(INT((10*RND(1))*100))/100
  141. 3701 I=INT(2*Z)
  142. 3702 X=INT(100*Z-(INT(Z/.5))*50+.05)
  143. 3703 IFX<10THENPM=101:GOTO3710
  144. 3704 IFX>=10THENPM=66
  145. 3705 IFX>=30THENPM=71
  146. 3706 IFX>=40THENPM=101
  147. 3708 I=I+1
  148. 3710 PRINT"[147]":GOSUB4000
  149. 3715 POKE(33184+I),76
  150. 3750 FORN=1TO11
  151. 3760 M=X+6-N
  152. 3770 IFM>=50THENM=M-50:GOTO3790
  153. 3780 IFM<0THENM=M+50
  154. 3790 IF(INT(M/10))*10=MTHENM2=INT(M/10):M3=1:GOTO3805
  155. 3800 IF(INT(M/5))*5=MTHENM2=INT(M/10):M3=2:GOTO3805
  156. 3802 GOTO3810
  157. 3805 GOSUB3820
  158. 3810 NEXTN
  159. 3815 RETURN
  160. 3820 POKE(32865+I+40*N),100
  161. 3825 IFM2=0GOTO3850
  162. 3830 PN=48+M2
  163. 3840 POKE(32866+I+40*N),PN
  164. 3850 PN=43+5*M3
  165. 3860 POKE(32867+I+40*N),PN
  166. 3870 RETURN
  167. 3880 PRINT"NOTE.....
  168. 3881 [153]"1. ON THE SPINDLE THE";([181](Z[173].5))[172].5;"IS VISIBLE (OR
  169. 3882 PRINT"ABOUT TO BE VISIBLE), WHILE THE";(INT(Z/.5))*.5+.5;"LINE
  170. 3883 [153]"CANNOT BE SEEN.
  171. 3885 PRINT"2. '";X;"' IS THE LINE ON THE THIMBLE
  172. 3886 [153]"OPPOSITE THE LINE ON THE SPINDLE.
  173. 3980 PRINT"THE READING IS ";Z;" MM[145][145]"
  174. 3988 GOSUB5000
  175. 3989 PRINT"[147]DO YOU WISH-
  176. 3990 [153]"1. ANOTHER EXAMPLE ?
  177. 3991 PRINT"2. A WEE TEST OF YOUR SKILL ?
  178. 3992 [153]"3. ANOTHER PROGRAMME ?
  179. 3993 GETA:IF A>3ORA<1THEN3993
  180. 3994 ONAGOTO3670,5200,1
  181. 3995 END
  182. 4000 PRINT"[162][162][162][162][162][162]
  183. 4010 [153]"SPC(SPC(SPC(SPC(SPC(SPC(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  184. 4020 PRINT"[166][166][166][166][166][166]
  185. 4030 [153]"SPC(SPC(SPC(SPC(SPC(SPC(
  186. 4040 PRINT"[166][166][166][166][166][166]
  187. 4050 [153]"SPC(SPC(SPC(SPC(SPC(SPC(
  188. 4060 PRINT"[166][166][166][166][166][166]
  189. 4070 [153]"SPC(SPC(SPC(SPC(SPC(SPC(TOTOTOTOTOTOTO
  190. 4080 PRINT"[166][166][166][166][166][166]
  191. 4090 [153]"SPC(SPC(SPC(SPC(SPC(SPC(
  192. 4100 PRINT"[166][166][166][166][166][166]
  193. 4110 [153]"SPC(SPC(SPC(SPC(SPC(SPC(
  194. 4120 PRINT"[166][166][166][166][166][166]
  195. 4130 [153]"SPC(SPC(SPC(SPC(SPC(SPC(TOTOTOTOTOTOTO
  196. 4140 PRINT"[162][162][162][162][162][162][146]";
  197. 4200 PRINT""
  198. 4210 PRINTTAB(16+I)"[145]/[163][163][163][157][157][157][157][140][157]";
  199. 4215 PRINT"[163][146][157]";
  200. 4220 FORX3=1TO11
  201. 4230 PRINT"[204][157]";
  202. 4242 NEXTX3
  203. 4250 PRINT"[163][146][157]\[164][164][164]
  204. 4395 B[178]I
  205. 4400 [139]B[178]0[167]4700
  206. 4500 [129]B[178]0[164](I[171]1)
  207. 4550 [151](32864[170]B),99:[151](33104[170]B),100:[151](33344[170]B),100
  208. 4580 [151](33144[170]B),PM
  209. 4680 [130]B
  210. 4685 [129]B[178]0[164]([181](I[173]2))
  211. 4687 [151](33184[170](2[172]B)),PM
  212. 4688 [130]B
  213. 4689 [151]33224,48:[139]I[177]10[167][151]33234,53
  214. 4700 [142]
  215. 4750 [151](33145[170]I),100:[151](33184),48
  216. 5000 [153]"   PRESS ANY KEY TO CONTINUE
  217. 5010 GETA$: IFA$=""THEN5010
  218. 5020 RETURN
  219. 5200 PRINT"[147]TO TEST YOUR SKILL
  220. 5210 [153]"STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$
  221. 5220 PRINT"READ THE MICROMETER, AND THEN
  222. 5230 [153]"TYPE IN THE READING AND UNIT, AND
  223. 5240 PRINT"THEN PRESS RETURN[146] TO SEE IF YOU ARE
  224. 5250 [153]"RIGHT.
  225. 5255 GOSUB5000
  226. 5260 GOSUB3700:N=0:N$="FIRST"
  227. 5270 PRINT"YOUR ";N$;" GUESS IS ";:INPUTG$
  228. 5275 IFRIGHT$(G$,2)="MM"GOTO5281
  229. 5280 PRINT"YOU MUST ALWAYS PUT IN THE  UNIT [146]":GOTO5270
  230. 5281 GD=INT(VAL(G$)*100):GF=INT(Z*100)
  231. 5282 IFGD=GFTHEN5380